/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Reusable Classes_Code / System_OS / Key Kit / KeyConverter

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 06 4d 6f 64 75 6c 65 0c | 4b 65 79 43 6f 6e 76 65 |.Module.|KeyConve|
|00000010| 72 74 65 72 82 01 33 91 | 09 94 06 07 00 0c 4b 65 |rter..3.|......Ke|
|00000020| 79 43 6f 6e 76 65 72 74 | 65 72 14 00 00 01 11 63 |yConvert|er.....c|
|00000030| 6f 6e 76 28 30 29 20 61 | 73 20 73 74 72 69 6e 67 |onv(0) a|s string|
|00000040| 01 04 08 41 73 63 54 6f | 4b 65 79 0c 73 63 20 61 |...AscTo|Key.sc a|
|00000050| 73 20 73 74 72 69 6e 67 | 07 69 6e 74 65 67 65 72 |s string|.integer|
|00000060| 00 07 00 07 00 0a 2a 46 | 75 6e 63 74 69 6f 6e 20 |......*F|unction |
|00000070| 41 73 63 54 6f 4b 65 79 | 28 73 63 20 61 73 20 73 |AscToKey|(sc as s|
|00000080| 74 72 69 6e 67 29 20 41 | 73 20 69 6e 74 65 67 65 |tring) A|s intege|
|00000090| 72 0f 64 69 6d 20 73 20 | 61 73 20 73 74 72 69 6e |r.dim s |as strin|
|000000a0| 67 10 64 69 6d 20 69 20 | 61 73 20 69 6e 74 65 67 |g.dim i |as integ|
|000000b0| 65 72 19 73 3d 73 74 72 | 28 61 73 63 28 75 70 70 |er.s=str|(asc(upp|
|000000c0| 65 72 63 61 73 65 28 73 | 63 29 29 29 17 66 6f 72 |ercase(s|c))).for|
|000000d0| 20 69 3d 31 20 74 6f 20 | 75 62 6f 75 6e 64 28 63 | i=1 to |ubound(c|
|000000e0| 6f 6e 76 29 3b 69 66 20 | 6e 74 68 46 69 65 6c 64 |onv);if |nthField|
|000000f0| 28 63 6f 6e 76 28 69 29 | 2c 22 20 22 2c 20 63 6f |(conv(i)|," ", co|
|00000100| 75 6e 74 46 69 65 6c 64 | 73 28 63 6f 6e 76 28 69 |untField|s(conv(i|
|00000110| 29 2c 22 20 22 29 2d 31 | 29 3d 73 20 74 68 65 6e |)," ")-1|)=s then|
|00000120| 3b 72 65 74 75 72 6e 20 | 76 61 6c 28 6e 74 68 46 |;return |val(nthF|
|00000130| 69 65 6c 64 28 63 6f 6e | 76 28 69 29 2c 22 20 22 |ield(con|v(i)," "|
|00000140| 2c 20 63 6f 75 6e 74 46 | 69 65 6c 64 73 28 63 6f |, countF|ields(co|
|00000150| 6e 76 28 69 29 2c 22 20 | 22 29 29 29 07 65 6e 64 |nv(i)," |"))).end|
|00000160| 20 69 66 20 04 6e 65 78 | 74 0c 45 6e 64 20 46 75 | if .nex|t.End Fu|
|00000170| 6e 63 74 69 6f 6e 08 49 | 6e 69 74 4b 65 79 73 00 |nction.I|nitKeys.|
|00000180| 00 00 b1 01 04 b1 01 04 | b3 01 0e 53 75 62 20 49 |........|...Sub I|
|00000190| 6e 69 74 4b 65 79 73 28 | 29 13 64 69 6d 20 73 2c |nitKeys(|).dim s,|
|000001a0| 20 62 72 20 61 73 20 73 | 74 72 69 6e 67 10 64 69 | br as s|tring.di|
|000001b0| 6d 20 69 20 61 73 20 69 | 6e 74 65 67 65 72 0a 62 |m i as i|nteger.b|
|000001c0| 72 3d 63 68 72 28 31 33 | 29 00 12 73 3d 20 20 22 |r=chr(13|)..s=  "|
|000001d0| 45 73 63 20 32 37 20 35 | 33 22 2b 62 72 10 73 3d |Esc 27 5|3"+br.s=|
|000001e0| 73 2b 22 46 31 20 20 31 | 32 32 22 2b 62 72 10 73 |s+"F1  1|22"+br.s|
|000001f0| 3d 73 2b 22 46 32 20 20 | 31 32 30 22 2b 62 72 0f |=s+"F2  |120"+br.|
|00000200| 73 3d 73 2b 22 46 33 20 | 20 39 39 22 2b 62 72 10 |s=s+"F3 | 99"+br.|
|00000210| 73 3d 73 2b 22 46 34 20 | 20 31 31 38 22 2b 62 72 |s=s+"F4 | 118"+br|
|00000220| 0f 73 3d 73 2b 22 46 35 | 20 20 39 36 22 2b 62 72 |.s=s+"F5|  96"+br|
|00000230| 0f 73 3d 73 2b 22 46 36 | 20 20 39 37 22 2b 62 72 |.s=s+"F6|  97"+br|
|00000240| 0f 73 3d 73 2b 22 46 37 | 20 20 39 38 22 2b 62 72 |.s=s+"F7|  98"+br|
|00000250| 10 73 3d 73 2b 22 46 38 | 20 20 31 30 30 22 2b 62 |.s=s+"F8|  100"+b|
|00000260| 72 10 73 3d 73 2b 22 46 | 39 20 20 31 30 31 22 2b |r.s=s+"F|9  101"+|
|00000270| 62 72 11 73 3d 73 2b 22 | 46 31 30 20 20 31 30 39 |br.s=s+"|F10  109|
|00000280| 22 2b 62 72 11 73 3d 73 | 2b 22 46 31 31 20 20 31 |"+br.s=s|+"F11  1|
|00000290| 30 33 22 2b 62 72 11 73 | 3d 73 2b 22 46 31 32 20 |03"+br.s|=s+"F12 |
|000002a0| 20 31 31 31 22 2b 62 72 | 11 73 3d 73 2b 22 46 31 | 111"+br|.s=s+"F1|
|000002b0| 33 20 20 31 30 35 22 2b | 62 72 11 73 3d 73 2b 22 |3  105"+|br.s=s+"|
|000002c0| 46 31 34 20 20 31 30 37 | 22 2b 62 72 11 73 3d 73 |F14  107|"+br.s=s|
|000002d0| 2b 22 46 31 35 20 20 31 | 31 33 22 2b 62 72 00 10 |+"F15  1|13"+br..|
|000002e0| 73 3d 73 2b 22 60 20 39 | 36 20 35 30 22 2b 62 72 |s=s+"` 9|6 50"+br|
|000002f0| 10 73 3d 73 2b 22 31 20 | 34 39 20 31 38 22 2b 62 |.s=s+"1 |49 18"+b|
|00000300| 72 10 73 3d 73 2b 22 32 | 20 35 30 20 31 39 22 2b |r.s=s+"2| 50 19"+|
|00000310| 62 72 10 73 3d 73 2b 22 | 33 20 35 31 20 32 30 22 |br.s=s+"|3 51 20"|
|00000320| 2b 62 72 10 73 3d 73 2b | 22 34 20 35 32 20 32 31 |+br.s=s+|"4 52 21|
|00000330| 22 2b 62 72 10 73 3d 73 | 2b 22 35 20 35 33 20 32 |"+br.s=s|+"5 53 2|
|00000340| 33 22 2b 62 72 10 73 3d | 73 2b 22 36 20 35 34 20 |3"+br.s=|s+"6 54 |
|00000350| 32 32 22 2b 62 72 10 73 | 3d 73 2b 22 37 20 35 35 |22"+br.s|=s+"7 55|
|00000360| 20 32 36 22 2b 62 72 10 | 73 3d 73 2b 22 38 20 35 | 26"+br.|s=s+"8 5|
|00000370| 36 20 32 38 22 2b 62 72 | 10 73 3d 73 2b 22 39 20 |6 28"+br|.s=s+"9 |
|00000380| 35 37 20 32 35 22 2b 62 | 72 10 73 3d 73 2b 22 30 |57 25"+b|r.s=s+"0|
|00000390| 20 34 38 20 32 39 22 2b | 62 72 10 73 3d 73 2b 22 | 48 29"+|br.s=s+"|
|000003a0| 2d 20 34 35 20 32 37 22 | 2b 62 72 10 73 3d 73 2b |- 45 27"|+br.s=s+|
|000003b0| 22 3d 20 36 31 20 32 34 | 22 2b 62 72 17 73 3d 73 |"= 61 24|"+br.s=s|
|000003c0| 2b 22 42 61 63 6b 73 70 | 61 63 65 20 38 20 35 31 |+"Backsp|ace 8 51|
|000003d0| 22 2b 62 72 11 73 3d 73 | 2b 22 48 65 6c 70 20 20 |"+br.s=s|+"Help  |
|000003e0| 31 31 34 2b 62 72 11 73 | 3d 73 2b 22 48 6f 6d 65 |114+br.s|=s+"Home|
|000003f0| 20 20 31 31 35 2b 62 72 | 15 73 3d 73 2b 22 50 61 |  115+br|.s=s+"Pa|
|00000400| 67 65 20 55 70 20 20 31 | 31 36 22 2b 62 72 1a 73 |ge Up  1|16"+br.s|
|00000410| 3d 73 2b 22 4e 75 6d 50 | 61 64 3a 20 43 6c 65 61 |=s+"NumP|ad: Clea|
|00000420| 72 20 20 37 31 22 2b 62 | 72 18 73 3d 73 2b 22 4e |r  71"+b|r.s=s+"N|
|00000430| 75 6d 50 61 64 3a 20 3d | 20 36 31 20 38 31 22 2b |umPad: =| 61 81"+|
|00000440| 62 72 18 73 3d 73 2b 22 | 4e 75 6d 50 61 64 3a 20 |br.s=s+"|NumPad: |
|00000450| 2f 20 34 37 20 37 35 22 | 2b 62 72 18 73 3d 73 2b |/ 47 75"|+br.s=s+|
|00000460| 22 4e 75 6d 50 61 64 3a | 20 2a 20 34 32 20 36 37 |"NumPad:| * 42 67|
|00000470| 22 2b 62 72 00 11 73 3d | 73 2b 22 54 61 62 20 39 |"+br..s=|s+"Tab 9|
|00000480| 20 34 38 22 2b 62 72 10 | 73 3d 73 2b 22 51 20 38 | 48"+br.|s=s+"Q 8|
|00000490| 31 20 31 32 22 2b 62 72 | 10 73 3d 73 2b 22 57 20 |1 12"+br|.s=s+"W |
|000004a0| 38 37 20 31 33 22 2b 62 | 72 10 73 3d 73 2b 22 45 |87 13"+b|r.s=s+"E|
|000004b0| 20 36 39 20 31 34 22 2b | 62 72 10 73 3d 73 2b 22 | 69 14"+|br.s=s+"|
|000004c0| 52 20 38 32 20 31 35 22 | 2b 62 72 10 73 3d 73 2b |R 82 15"|+br.s=s+|
|000004d0| 22 54 20 38 34 20 31 37 | 22 2b 62 72 10 73 3d 73 |"T 84 17|"+br.s=s|
|000004e0| 2b 22 59 20 38 39 20 31 | 36 22 2b 62 72 10 73 3d |+"Y 89 1|6"+br.s=|
|000004f0| 73 2b 22 55 20 38 35 20 | 33 32 22 2b 62 72 10 73 |s+"U 85 |32"+br.s|
|00000500| 3d 73 2b 22 49 20 37 33 | 20 33 34 22 2b 62 72 10 |=s+"I 73| 34"+br.|
|00000510| 73 3d 73 2b 22 4f 20 37 | 39 20 33 31 22 2b 62 72 |s=s+"O 7|9 31"+br|
|00000520| 10 73 3d 73 2b 22 50 20 | 38 30 20 33 35 22 2b 62 |.s=s+"P |80 35"+b|
|00000530| 72 10 73 3d 73 2b 22 5b | 20 39 31 20 33 33 22 2b |r.s=s+"[| 91 33"+|
|00000540| 62 72 10 73 3d 73 2b 22 | 5d 20 39 33 20 33 30 22 |br.s=s+"|] 93 30"|
|00000550| 2b 62 72 10 73 3d 73 2b | 22 5c 20 39 32 20 34 32 |+br.s=s+|"\ 92 42|
|00000560| 22 2b 62 72 15 73 3d 73 | 2b 22 46 77 64 20 44 65 |"+br.s=s|+"Fwd De|
|00000570| 6c 20 20 31 31 37 22 2b | 62 72 10 73 3d 73 2b 22 |l  117"+|br.s=s+"|
|00000580| 45 6e 64 20 20 31 31 39 | 2b 62 72 17 73 3d 73 2b |End  119|+br.s=s+|
|00000590| 22 50 61 67 65 20 44 6f | 77 6e 20 20 31 32 31 22 |"Page Do|wn  121"|
|000005a0| 2b 62 72 18 73 3d 73 2b | 22 4e 75 6d 50 61 64 3a |+br.s=s+|"NumPad:|
|000005b0| 20 37 20 35 35 20 38 39 | 22 2b 62 72 18 73 3d 73 | 7 55 89|"+br.s=s|
|000005c0| 2b 22 4e 75 6d 50 61 64 | 3a 20 38 20 35 36 20 39 |+"NumPad|: 8 56 9|
|000005d0| 31 22 2b 62 72 18 73 3d | 73 2b 22 4e 75 6d 50 61 |1"+br.s=|s+"NumPa|
|000005e0| 64 3a 20 39 20 35 37 20 | 39 32 22 2b 62 72 18 73 |d: 9 57 |92"+br.s|
|000005f0| 3d 73 2b 22 4e 75 6d 50 | 61 64 3a 20 2d 20 34 35 |=s+"NumP|ad: - 45|
|00000600| 20 37 38 22 2b 62 72 00 | 16 73 3d 73 2b 22 43 61 | 78"+br.|.s=s+"Ca|
|00000610| 70 73 20 4c 6f 63 6b 20 | 20 35 37 22 2b 62 72 0f |ps Lock | 57"+br.|
|00000620| 73 3d 73 2b 22 41 20 36 | 35 20 30 22 2b 62 72 0f |s=s+"A 6|5 0"+br.|
|00000630| 73 3d 73 2b 22 53 20 38 | 33 20 31 22 2b 62 72 0f |s=s+"S 8|3 1"+br.|
|00000640| 73 3d 73 2b 22 44 20 36 | 38 20 32 22 2b 62 72 0f |s=s+"D 6|8 2"+br.|
|00000650| 73 3d 73 2b 22 46 20 37 | 30 20 33 22 2b 62 72 0f |s=s+"F 7|0 3"+br.|
|00000660| 73 3d 73 2b 22 47 20 37 | 31 20 35 22 2b 62 72 0f |s=s+"G 7|1 5"+br.|
|00000670| 73 3d 73 2b 22 48 20 37 | 32 20 34 22 2b 62 72 10 |s=s+"H 7|2 4"+br.|
|00000680| 73 3d 73 2b 22 4a 20 37 | 34 20 33 38 22 2b 62 72 |s=s+"J 7|4 38"+br|
|00000690| 10 73 3d 73 2b 22 4b 20 | 37 35 20 34 30 22 2b 62 |.s=s+"K |75 40"+b|
|000006a0| 72 10 73 3d 73 2b 22 4c | 20 37 36 20 33 37 22 2b |r.s=s+"L| 76 37"+|
|000006b0| 62 72 10 73 3d 73 2b 22 | 3b 20 35 39 20 34 31 22 |br.s=s+"|; 59 41"|
|000006c0| 2b 62 72 10 73 3d 73 2b | 22 27 20 33 39 20 33 39 |+br.s=s+|"' 39 39|
|000006d0| 22 2b 62 72 15 73 3d 73 | 2b 22 52 65 74 75 72 6e |"+br.s=s|+"Return|
|000006e0| 20 31 33 20 33 36 22 2b | 62 72 18 73 3d 73 2b 22 | 13 36"+|br.s=s+"|
|000006f0| 4e 75 6d 50 61 64 3a 20 | 34 20 35 32 20 38 36 22 |NumPad: |4 52 86"|
|00000700| 2b 62 72 18 73 3d 73 2b | 22 4e 75 6d 50 61 64 3a |+br.s=s+|"NumPad:|
|00000710| 20 35 20 35 33 20 38 37 | 22 2b 62 72 18 73 3d 73 | 5 53 87|"+br.s=s|
|00000720| 2b 22 4e 75 6d 50 61 64 | 3a 20 36 20 35 34 20 38 |+"NumPad|: 6 54 8|
|00000730| 38 22 2b 62 72 18 73 3d | 73 2b 22 4e 75 6d 50 61 |8"+br.s=|s+"NumPa|
|00000740| 64 3a 20 2b 20 34 33 20 | 36 39 22 2b 62 72 00 12 |d: + 43 |69"+br..|
|00000750| 73 3d 73 2b 22 53 68 69 | 66 74 20 20 35 36 22 2b |s=s+"Shi|ft  56"+|
|00000760| 62 72 0f 73 3d 73 2b 22 | 5a 20 39 30 20 36 22 2b |br.s=s+"|Z 90 6"+|
|00000770| 62 72 0f 73 3d 73 2b 22 | 58 20 38 38 20 37 22 2b |br.s=s+"|X 88 7"+|
|00000780| 62 72 0f 73 3d 73 2b 22 | 43 20 36 37 20 38 22 2b |br.s=s+"|C 67 8"+|
|00000790| 62 72 0f 73 3d 73 2b 22 | 56 20 38 36 20 39 22 2b |br.s=s+"|V 86 9"+|
|000007a0| 62 72 10 73 3d 73 2b 22 | 42 20 36 36 20 31 31 22 |br.s=s+"|B 66 11"|
|000007b0| 2b 62 72 10 73 3d 73 2b | 22 4e 20 37 38 20 34 35 |+br.s=s+|"N 78 45|
|000007c0| 22 2b 62 72 10 73 3d 73 | 2b 22 4d 20 37 37 20 34 |"+br.s=s|+"M 77 4|
|000007d0| 36 22 2b 62 72 10 73 3d | 73 2b 22 2c 20 34 34 20 |6"+br.s=|s+", 44 |
|000007e0| 34 33 22 2b 62 72 10 73 | 3d 73 2b 22 2e 20 34 36 |43"+br.s|=s+". 46|
|000007f0| 20 34 37 22 2b 62 72 10 | 73 3d 73 2b 22 2f 20 34 | 47"+br.|s=s+"/ 4|
|00000800| 37 20 34 34 22 2b 62 72 | 16 73 3d 73 2b 22 55 70 |7 44"+br|.s=s+"Up|
|00000810| 20 41 72 72 6f 77 20 20 | 31 32 36 22 2b 62 72 18 | Arrow  |126"+br.|
|00000820| 73 3d 73 2b 22 4e 75 6d | 50 61 64 3a 20 31 20 34 |s=s+"Num|Pad: 1 4|
|00000830| 39 20 38 33 22 2b 62 72 | 18 73 3d 73 2b 22 4e 75 |9 83"+br|.s=s+"Nu|
|00000840| 6d 50 61 64 3a 20 32 20 | 35 30 20 38 34 22 2b 62 |mPad: 2 |50 84"+b|
|00000850| 72 18 73 3d 73 2b 22 4e | 75 6d 50 61 64 3a 20 33 |r.s=s+"N|umPad: 3|
|00000860| 20 35 31 20 38 35 22 2b | 62 72 00 14 73 3d 73 2b | 51 85"+|br..s=s+|
|00000870| 22 43 6f 6e 74 72 6f 6c | 20 20 35 39 22 2b 62 72 |"Control|  59"+br|
|00000880| 13 73 3d 73 2b 22 4f 70 | 74 69 6f 6e 20 20 35 38 |.s=s+"Op|tion  58|
|00000890| 22 2b 62 72 1f 73 3d 73 | 2b 22 43 6f 6d 6d 61 6e |"+br.s=s|+"Comman|
|000008a0| 64 20 22 2b 63 68 72 28 | 31 37 29 2b 22 20 35 35 |d "+chr(|17)+" 55|
|000008b0| 22 2b 62 72 14 73 3d 73 | 2b 22 53 70 61 63 65 20 |"+br.s=s|+"Space |
|000008c0| 33 32 20 34 39 22 2b 62 | 72 18 73 3d 73 2b 22 4c |32 49"+b|r.s=s+"L|
|000008d0| 65 66 74 20 41 72 72 6f | 77 20 20 31 32 33 22 2b |eft Arro|w  123"+|
|000008e0| 62 72 18 73 3d 73 2b 22 | 44 6f 77 6e 20 41 72 72 |br.s=s+"|Down Arr|
|000008f0| 6f 77 20 20 31 32 35 22 | 2b 62 72 19 73 3d 73 2b |ow  125"|+br.s=s+|
|00000900| 22 52 69 67 68 74 20 41 | 72 72 6f 77 20 20 31 32 |"Right A|rrow  12|
|00000910| 34 22 2b 62 72 15 73 3d | 73 2b 22 4e 75 6d 50 61 |4"+br.s=|s+"NumPa|
|00000920| 64 3a 20 30 20 34 38 22 | 2b 62 72 15 73 3d 73 2b |d: 0 48"|+br.s=s+|
|00000930| 22 4e 75 6d 50 61 64 3a | 20 2e 20 34 36 22 2b 62 |"NumPad:| . 46"+b|
|00000940| 72 13 73 3d 73 2b 22 45 | 6e 74 65 72 20 33 20 35 |r.s=s+"E|nter 3 5|
|00000950| 32 22 2b 62 72 00 1c 46 | 6f 72 20 49 3d 31 20 74 |2"+br..F|or I=1 t|
|00000960| 6f 20 63 6f 75 6e 74 46 | 69 65 6c 64 73 28 73 2c |o countF|ields(s,|
|00000970| 62 72 29 1c 63 6f 6e 76 | 2e 61 70 70 65 6e 64 20 |br).conv|.append |
|00000980| 6e 74 68 46 69 65 6c 64 | 28 73 2c 62 72 2c 69 29 |nthField|(s,br,i)|
|00000990| 04 6e 65 78 74 07 45 6e | 64 20 53 75 62 09 41 73 |.next.En|d Sub.As|
|000009a0| 63 54 6f 4e 61 6d 65 0c | 73 63 20 61 73 20 73 74 |cToName.|sc as st|
|000009b0| 72 69 6e 67 06 73 74 72 | 69 6e 67 00 0c 04 01 00 |ring.str|ing.....|
|000009c0| 0e 2a 46 75 6e 63 74 69 | 6f 6e 20 41 73 63 54 6f |.*Functi|on AscTo|
|000009d0| 4e 61 6d 65 28 73 63 20 | 61 73 20 73 74 72 69 6e |Name(sc |as strin|
|000009e0| 67 29 20 41 73 20 73 74 | 72 69 6e 67 0f 64 69 6d |g) As st|ring.dim|
|000009f0| 20 73 20 61 73 20 73 74 | 72 69 6e 67 10 64 69 6d | s as st|ring.dim|
|00000a00| 20 69 20 61 73 20 69 6e | 74 65 67 65 72 19 73 3d | i as in|teger.s=|
|00000a10| 73 74 72 28 61 73 63 28 | 75 70 70 65 72 63 61 73 |str(asc(|uppercas|
|00000a20| 65 28 73 63 29 29 29 17 | 66 6f 72 20 69 3d 31 20 |e(sc))).|for i=1 |
|00000a30| 74 6f 20 75 62 6f 75 6e | 64 28 63 6f 6e 76 29 3b |to uboun|d(conv);|
|00000a40| 69 66 20 6e 74 68 46 69 | 65 6c 64 28 63 6f 6e 76 |if nthFi|eld(conv|
|00000a50| 28 69 29 2c 22 20 22 2c | 20 63 6f 75 6e 74 46 69 |(i)," ",| countFi|
|00000a60| 65 6c 64 73 28 63 6f 6e | 76 28 69 29 2c 22 20 22 |elds(con|v(i)," "|
|00000a70| 29 2d 31 29 3d 73 20 74 | 68 65 6e 22 69 66 20 63 |)-1)=s t|hen"if c|
|00000a80| 6f 75 6e 74 46 69 65 6c | 64 73 28 63 6f 6e 76 28 |ountFiel|ds(conv(|
|00000a90| 69 29 2c 22 20 22 29 3d | 33 20 74 68 65 6e 21 72 |i)," ")=|3 then!r|
|00000aa0| 65 74 75 72 6e 20 28 6e | 74 68 46 69 65 6c 64 28 |eturn (n|thField(|
|00000ab0| 63 6f 6e 76 28 69 29 2c | 22 20 22 2c 20 31 29 29 |conv(i),|" ", 1))|
|00000ac0| 04 65 6c 73 65 3d 72 65 | 74 75 72 6e 20 28 6e 74 |.else=re|turn (nt|
|00000ad0| 68 46 69 65 6c 64 28 63 | 6f 6e 76 28 69 29 2c 22 |hField(c|onv(i),"|
|00000ae0| 20 22 2c 20 31 29 2b 22 | 20 22 2b 6e 74 68 46 69 | ", 1)+"| "+nthFi|
|00000af0| 65 6c 64 28 63 6f 6e 76 | 28 69 29 2c 22 20 22 2c |eld(conv|(i)," ",|
|00000b00| 32 29 29 06 65 6e 64 20 | 69 66 06 65 6e 64 20 69 |2)).end |if.end i|
|00000b10| 66 04 6e 65 78 74 0c 45 | 6e 64 20 46 75 6e 63 74 |f.next.E|nd Funct|
|00000b20| 69 6f 6e 09 4b 65 79 54 | 6f 4e 61 6d 65 0e 6b 65 |ion.KeyT|oName.ke|
|00000b30| 79 20 61 73 20 69 6e 74 | 65 67 65 72 06 73 74 72 |y as int|eger.str|
|00000b40| 69 6e 67 00 0c 04 0c 04 | 0e 2c 46 75 6e 63 74 69 |ing.....|.,Functi|
|00000b50| 6f 6e 20 4b 65 79 54 6f | 4e 61 6d 65 28 6b 65 79 |on KeyTo|Name(key|
|00000b60| 20 61 73 20 69 6e 74 65 | 67 65 72 29 20 41 73 20 | as inte|ger) As |
|00000b70| 73 74 72 69 6e 67 0f 64 | 69 6d 20 73 20 61 73 20 |string.d|im s as |
|00000b80| 73 74 72 69 6e 67 10 64 | 69 6d 20 69 20 61 73 20 |string.d|im i as |
|00000b90| 69 6e 74 65 67 65 72 0a | 73 3d 73 74 72 28 6b 65 |integer.|s=str(ke|
|00000ba0| 79 29 17 66 6f 72 20 69 | 3d 31 20 74 6f 20 75 62 |y).for i|=1 to ub|
|00000bb0| 6f 75 6e 64 28 63 6f 6e | 76 29 39 69 66 20 6e 74 |ound(con|v)9if nt|
|00000bc0| 68 46 69 65 6c 64 28 63 | 6f 6e 76 28 69 29 2c 22 |hField(c|onv(i),"|
|00000bd0| 20 22 2c 20 63 6f 75 6e | 74 46 69 65 6c 64 73 28 | ", coun|tFields(|
|00000be0| 63 6f 6e 76 28 69 29 2c | 22 20 22 29 29 3d 73 20 |conv(i),|" "))=s |
|00000bf0| 74 68 65 6e 22 69 66 20 | 63 6f 75 6e 74 46 69 65 |then"if |countFie|
|00000c00| 6c 64 73 28 63 6f 6e 76 | 28 69 29 2c 22 20 22 29 |lds(conv|(i)," ")|
|00000c10| 3d 33 20 74 68 65 6e 21 | 72 65 74 75 72 6e 20 28 |=3 then!|return (|
|00000c20| 6e 74 68 46 69 65 6c 64 | 28 63 6f 6e 76 28 69 29 |nthField|(conv(i)|
|00000c30| 2c 22 20 22 2c 20 31 29 | 29 04 65 6c 73 65 3d 72 |," ", 1)|).else=r|
|00000c40| 65 74 75 72 6e 20 28 6e | 74 68 46 69 65 6c 64 28 |eturn (n|thField(|
|00000c50| 63 6f 6e 76 28 69 29 2c | 22 20 22 2c 20 31 29 2b |conv(i),|" ", 1)+|
|00000c60| 22 20 22 2b 6e 74 68 46 | 69 65 6c 64 28 63 6f 6e |" "+nthF|ield(con|
|00000c70| 76 28 69 29 2c 22 20 22 | 2c 32 29 29 06 65 6e 64 |v(i)," "|,2)).end|
|00000c80| 20 69 66 06 65 6e 64 20 | 69 66 04 6e 65 78 74 0c | if.end |if.next.|
|00000c90| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 00 00 00 00 |End Func|tion....|
|00000ca0| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+